vignettes/viewing-surfaces3.Rmd
viewing-surfaces3.Rmd
open3d()
#> glX
#> 1
white_surf1 <- smooth(white_surf, type="taubin", lambda=.9)
curv_lh <- curvature(white_surf1)
white_rh_surf1 <- smooth(white_rh_surf, type="taubin", lambda=.9)
curv_rh <- curvature(white_rh_surf1)
p <- plot(white_surf1, bgcol=curv_cols(curv_lh), viewpoint="posterior")
p <- plot(white_rh_surf1,bgcol=curv_cols(curv_rh), viewpoint="posterior")
rglwidget()